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MM MM =6PPPPPPPP CCCCCCCC =MM MM 000000 DODDDDDD 
MM MM =PPPPPPPP cccccccc MM MM 000000 DDDDDDDD 
MMMM 6MMMM PP PP tt MMMM MMMM 600 00 DD DD 
MMMM MMMM PP PP Ct MMMM MMMM 600 00 OD DD 
MM 66MM OMM OPP re tt MM 00 00 DD DD 
MM MM OMM OPP PP CC MM MM MM «(OO 00 OD DD 
MM MM =6PPPPPPPP cc MM MM 00 00 DD DD 
MM MM =PPPPPPPP cc MM MM 00 00 OD DD 
MM MM PP cc MM MM 00 00 OD DD 
MM MM PP cc MM MM 00 00 DD DD 
MM MM PP cc MM MM 600 00 OD DD cece 
MM MM PP cc “iM MM 00 00 DD DD eeee 
MM MM PP cccccccc MM MM 000000 DODDDDDD eee 
MM MM PP Cccccccc MM MM 000000 DDDDDDDD eoee 
LL III] SSSSSSSS 
LL 11111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL i] SSS5SS 
LL I] SSSSSS 
LL Il SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


-® ® 
: * 
-® * 
-* ® 
-® ® 
;* THIS SOFTWARE IS FURNISHED eee A LICENSE AND MAY BE USED AND costs * 
;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH if Vi SE AND WITH THE * 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE ANY R * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
*® ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT ‘ 
:* CORPORATION. . 
: * 
-* * 
-* 4 
** te 
:* * 
:* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


PPP I SPST ITIL iri iriiiiiii titi riitiiiiiiiiiiitiiitiiiiiiiietiiy) 
D. N. CUTLER 22-JUN-76 
MODIFIED BY: 


V03-041 LJK0287 Lawrence J. Kenah 27-Jun-1984 
Add R5 to entry mask for SCANEXH syster. service. 


v03-040 ws L. Mark Pilant, 23-Apr-1984 9:21 
change *scHxPro from an exec mode service to a kernel mode 
service. This was made necessary by tre SCHKPRO (internal 
entry point) interface change. 


v03-039 mmD0250 
Add yasert for 


Reg te 27-Feb-1894 17:49 20 
$M ACCESS ‘etal tarton spe-ific accessibility 


routine 
v03-038 paapens David Solomon 20-Feb-1984 
Implement new ges gn for RMS ) nae Lf ahd to SYSSOUTPUT 


— 
ma 


m 
(vs v03-019) Echo is now ueert ormed by a caller's mode AST 
routine declared in RMS\RMSEXRMS. "Taskes INCB/DECB of FAB/RAB 
busy bit to BISB/BICB, now that we have room. 


v03-037 SSA0004 28-Dec-1983 
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For SSETPFM, changed number of pargesters from 1 to 4 
and changed entry mask to save R2-R11. 


i 
| 
v03-036 TMK0002 Todd M. Katz 19-Nov-1983 
The entry point for SASCTOID can no longer be reached as a 
branch destination from the executive mode dispatcher. 
A temporary entry point (EXESASCTOID) has been placed within 
this module, and a JMP is made from it to the real system 
service entry point (EXESSASCTOID). 
Also, change the entry mask for SYSS$TRNLOG, so that R8 is 
now saved. 
v03-035 TMKOO01 Todd M. Katz 22-0¢ t-1983 
The entry points for SFINISH_RDB and $IDTOASC can no 
longer be reached as branch destinations from the executive 
mode dispatcher. Temporary entr pointe (EXESFINISH_RDB and 
EXESIDTOASC) have been placed within this module, and from 
each a JMP is made to the real system service entry points 
(EXESSFINISH_RDB and EXESSIDTOASC). 


OOQoooooooooooooooo°oo 
SOooooooooooooooooooo 


SoOQOQOOCoOQoQOoooQooooooooo 
Ooo 


SOOCoooooocoo 


WN — SO ODNAULS WN "OC OCONOUS WOO 


é i 
71: 
72; 
73 ; 
74 ; 
75 ; 
76 ; 
cr 3 
78 ; 
79 ; 
; 
83 ; 
84 ; 
85 ; 
86 ; 
or 
0000 88 ; 
0000 89 ; V03-0%4 PRBO254 Paul Beck 15-Sep-1983 14:49 
0000 90 ; (1) Correct the way synchronous CJF services are defined. 
5000 4 : (2) Define loadable RUF services. 
0000 93; V03-033 wMC0029 _ Wayne Cardoza 31-Aug-1983 | 
0000 94 ; Loadable services should not be unconditionally inhibited. 
44 + : Add an alternate CHMx argument to LDBSRV. 
0000 97: V03-032 DwWT0125 David W. Thiel 22-Aug-1983 
8006 a : Remove CHECKARGLIST and calls to same. 
, 0000 100: V03-031 MKLO167 Mary Kay Lyons 19-Aug-1983 
44 ot ; Generate loadable service vector for CJFSGETCJI. | 
0000 198 : v03-030 KBT0578 Keith B. Thompson 8-Aug-1983 
sit ie : Add parameter to SFILESCAN 
0000 106; V03-029 RASO178 Ron Schaefer 29-Jul-1983 
0000 107 ; Add code to detect the AST/non-AST RMS FAB/RAB race 
0000 108 ; condition where an RMS operation is initiated while 
0000 109 ; the user FAB/RAB is still waiting for completion of 
Bas Be : previous operation. 
$009 ay : v03-028 wMc0028 Wayne Cardoza 29-Jun-1983 
4 ay : Add CJF services. 
$00 115 : V03-027 wMC0027 Wayne Cardoza 23-Jun-1983 
000 138 : Make old logical name services ‘‘all mode’. 
0900 i : Changes to image activator vectors. 
000 119 : V03-026 JWHO222 Jeffrey WwW. Horn | 2-May-1983 
120 ; Add LDBSRV macro for vector definitions of loadable | 
: 1 : services. 
900 § : V03-025 DMW4035 DMwal 26-May-1983 | 


‘ p 
Intergate new logical name structures. 


o 
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0 125 ; 

09 1 § : V03-024 LMP0109 L. Mark Pilant, 28-Apr-1983 15:53 

0 1 5 Make SCHKPRO an EXEC mode system service to allow examination 
b6 ; 8 : of various system data structures. 

999 130 ; V03-024 RASO147 Ron Schaeter 28-APR-1983 

4 } 1 : Add SFILESCAN. Add R8 and RY to SSETPRN register mask. 

000. «(1 : : V03-023 JLV0244 Jake VanNo 27-APR=-1983 

0000 134; Add $BRKTHRUW. Change $BRDCST to all mode service. 

0000 } 5 ; SBROCST now uses $BRKTHRU to do real work. 

0900 1 3 : V03-022 LMP0099 L. Mark Pilant, 13-Apr-1983 19:15 
B88 133 : Add the SCHKPRO system service. 

900 140 : V03-021 ACG0319 Andrew C. Goldstein, | 21-Mar-1983 13:51 
464 1) : Add $GRANTID and $REVOKID services 

0000 128 : V03-020 JLV0234 Jake VanNoy 1-MAR-1983 

i464 13 : Add $BRKTHRU service. 

0000 146: V03-019 RASO120 Ron Schaefer 25-Feb-1983 

0000 147 ; Add support to echo SYSSINPUT to SYSSOUTPUT. 

0000 148; This involves oe the return code from RMS for $GET; 
0000 149; if the special status RMS$_ECHO (not returned to users) 

0000 150; is found, then create a RAB on the caller's stack and 

0000 151; execute a $PUT operation to echo the Line. 

0000 13¢ ; A certain amount of RMS synchronization code was 
B88 137 : shuffled around in order to make room for this. 
0000 155: v03-018 ACGO317 Andrew C. Goldstein, 22-Feb-1983 15:16 
44 136 : Fix off-by-one in kernel arg vector 
0000 158: V03-017 RSHO004 R. Scott Hanna | 10-Feb-1983 
44 Fe : Added $ASCTOID, SFINISH_RD8, and SIDTOASC to system service List 
0000 161: V03-016 RNGOO16 Rod N. Gamache 1=F eb-1983 
8858 16¢ ; Added $GETLKI to system service List 
0000 164: VO3-015 wMc0015 Wayne Cardoza 12-Jan-1983 
8600 193 : Put back accidentally deleted space holder for RMS synchronization. 
0000 189 : VO3-014 DMW4023 DMWa tp 7=Jan-1983 
8888 168 : Added SCRELNT, SCRELNM, SDELLNM and $TRNLNM 

000 170; v03-013 KDM0033 Kathleen D. Morse 13-Dec-1982 

000 171; Correct usage of an interlocked instruction to flush 

B60 \e : the hardware cache queue. 

000 174: V03-012 ROW0146 Ralph 0. Weber 6-DEC-1982 

Beh 175 ; Insert routine header comments for INHEXCP, CHECKARGLIST, 

00 176 ; and EXESCMODKRNLX (MPSSCMODKRNLX). Move things around so 

O60 177 ; that EXESCMODKRNL (MPSSCMODKRNL) header comments are near 

0 178 ; EXESCMODRKNL CAPSSERODERAL } and ASTEXIT comments are near 

O60 179 ; ASTEXIT. Make basic kernal-mode .PSECT definition for YSCMODK 
38 130 : or MPSCMOD1 immediately after executive mode code so that new 

00 181; code can be inserted in a way that preserves routine headers, 
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00 1 4 ; conditional assembly, and .PSECT definitions. Backout ROW145, 
88 1 : and in its piace. correct conditional assembly of BGEQU 10$ 
184 ; after ACCVIO_RET so that it is assembled only for MPCMOD and 
8p 185 ; so that it is located before ACCVIO_RET. Change PCB address 
8 1 § ; lookup at KERDSP in MPCMOD to use CTLSGL_PCB so that it works 
44 ! gi correctly regardless of which processor executes it. 
0000 189; V03-011 ROWO145 Ralph 0. Weber 29-NOV-1982 
4 190 ; Move EXESEXCPTN (and MPSSEXCPTN) to before ASTEXIT (or 
00 191 ; MPSSASTEXIT) in an attempt to make branch destinations in 
4 136 : EXESCMODKRNL reach. 
$008 194 : v03-010 KDM0030 Kathleen D. Morse 18-Nov-1982 
0000 195 ; Add logic to MPCMOD that allows the primary to execute 
44 136 $ secondary-specific code, without turning into a secondary. 
0000 198: V03-009 MLJ0099 Martin L. Jack, 20-Oct-1982 19:42 
0000 199 ; Complete V03-002 by correcting mode and argument count of 
44 spy 3 SSNDJBC and removing temporary stubs. 
0000 308 : v03-008 R1H0001 Richard I. Hustvedt 1=Jun=1982 
0000 203; Correct handling of AST queue by secondary processor to 
0000 204 ; avoid posing some AST notifications by incorrectly computing 
it soe 3 PHDS$B_ASTLVL. 
0000 207; v03-007 KDM0018 Kathleen D. Morse 30-Sep-1982 
0000 208 ; Add MPSWITCH Logic to create a kernel system service 
si $10 ; dispatcher for the secondary processor of an 11/782. 
0000 211: V03-006 $TJ3028 Steven T. Jeffreys 26-Sep-1982 
it $i¢ : Added SERAPAT system service vector. 
0000 214: V03-005 pwT0058 David Thiel 11-Aug-1982 
0000 12 3 Eliminate use of R2 while waiting for service 
4464 16 : completion. 
0000 218; V03-004 JwHO001 Jeffrey W. Horn 26-Jul-1982 
0000 219; Add new RMS service, RMSRUHNDLR, an un-documented service 
4 $50 2 which acts as the Recovery Unit handler for RMS. 
0000 2 : v03-003 PHLO102 Peter H. Lipman 16-Jul-1982 
0000 : Fix new SYNCH logic to always return SS$_NORMAL, 
0000 4; not access I0SB if error from service, and return 
4 2 : error status from SSETEF if event flag cluster went away 
0000 7; v03-002 PHLO101 Peter H. Lipman 17-Jun-1982 
0000 8; Add $SYNCH system service and fix $Q10W and SENQW to use the 
44 4 ; new code for waiting for the combination of EFN and I10SB 
000 1 ; Improve readability of conditionals. 
000 5 : Add $GETDOVIW, SGETJPIW, SGETSYIW, SSNDJBC, SSNDJBCW, and 
09 : ; SUPDSECW. ALL the waiting versions use common code. 
900 5 : 
0 8 ; CHANGE MODE SYSTEM SERVICE DISPATCHER 
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28 98 SYS$"SRVNAME: : 
9 FF 

Q 00 vIF NDF ,MPSWITCH 

0 07 "WORD “M<REGS> 

00 0¢ SRVNAME'_MASK = “M<REGS> 

an a 

9000 05 SRy’ MODE SRVNAME ,NARG, MASK 

0900 8 SRV’ MODE SRVNAME ,NARG, MASK ,NOSYNC 

00 08 ~ENDC 

9909 09 .ENDC =; MPSWITCH 

9000 “BLL 2 

0000 *ENDC 

0000 *IFF 

9009 SRV' MODE SRVNAME , NARG, MASK 

000 -ENDC 

0000 -ENDM  GSYSSRV 

338 

9000 ; GCOMPSRVB - GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR BEGIN 
9000 ; GCOMPSRVB SRVNAME ,REGISTER_MASKL PREFIX] 

0000 : WHERE : 

0000 ; SRVNAME = SERVICE NAME LESS ANY PREFIX (SYS$, EXE$) 
0000 : REGISTER_MASK = SYMBOLIC REGISTER MASK, G10 MASK 
0000 ; REFIX -"IF SUPPLIED, THE PREFIX FOR THE SERVICE NAME. 
0000 ; IF OMITTED, "'SYSS$'' IS ASSUMED. 
$358 
0000 CRO GCOMPSRVB, SRVNAME ,REGMSK,PREFIX=SYS$ 
0000 NOF ,MPSWITCH 


0000 a Tecottcae 
LIBSWITCH 


$$$6000 QUAD 
$$$000, QUAD 


QUAD 
LIBSWITCH 

_ BLANK, <SRVNAME>,- 
"PREFIX" $ : 


COMPSTRT=« 
NOT BLAM. <REGMSK>,=- 
<REGMSK> 


:MPSWITCH 
GCOMPSRVB 


° c . * ¢« . . . a 7. eo . o o . 
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GCOMPSRVE QUADWORDS 


WHERE: 
QUADWORDS = NUMBER OF QUADWORDS TO RESERVE FOR VECTOR 
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Sete Sete Ge 


CRO GCOMPSRVE,QUADS 
NOF ,MPSWITCH 
NOF .RMSSWITCH 
OF ,LIBSWITCH 

Ka QUADS 

COMPSTRT 

K 

F 

R 


= os 
mo OD es he 


COMPSIZE 


1 GE , QUADS *8-COMPS1ZE 
B  QUADS*8-COMPSIZE 
OR : VECTOR EXCEEDS ALLOCATED SIZE ; 


-DSABL LSB 


mms 


-ENDC =; MPSWITCH 
"ENDM GCOMPSRVE 


SRVK = GENERATE ENTRY FOR KERNEL MODE SERVICE 
SRVK SRVNAME ,NARG ,MASK 


.MACRO SRVK, SRVNAME ,NARG, MASK 

TIF NDF ,RMSSWITCH 

TIF DF MPSWITCH 
CMKSC_'SRVNAME==KCASCTR 

’ :MPSWITCH DEFINED 
CMKSC_'SRVNAME=KCASCTR 

CHAK #SRVNAME 

-PSECT _YSCHODKN.BYTE 

ASSUME NARG LE 127 

.BY NAR 

-PSECT YSCMODKX,BYTE 

=KCASCTR 


K BYTE 
WORD EXES* SRVNAME~KCASE+2 
MPSWITCH 


R+1 
sMPSWITCH 
SRVK 


SRVE - GENERATE ENTRY FOR EXECUTIVE MODE SERVICE 
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800 aig 
p 414 -MACRO SRVE, SRVNAME, NARG,MASK 
415 v IF NDF ,MPSWITCH 
0 416 “IF NOF -RMSSWITCH 
00 417 CMESC_'SRVNAME= =ECASCTR 
0 418 CHME  #SRVNAME 
0 41 RET 
000 420 -PSECT YSCMODEN, BYTE 
9900 421 <7 
0000 4 : ASSUME NARG LE 127 
itd t 4 BSEET VSCRODEX, BYTE 
0000 425 =ECASCTR 
0000 426 “BYTE MASK 
0000 427 “PSECT YS$CMODE,BYTE 
0000 428 -SIGNED_WORD  EXE$*SRVNAME-ECASE+2 
0000 429 -ENDC 
0000 430 SRVNAME=ECASCTR 
0000 431 ECASCTR=ECASCTR+1 
0000 43¢ -ENDC =; MPSWITCH 
0000 43 -ENDM © SRVE 
0000 434; 
0000 435: 
9000 436 + MACROS FOR GENERATING RMS SYSTEM VECTORS 
9000 438 .MACRO RMSSRV SRVNAME NARG= =1,REGS=<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11>,- 
0000 440 GSYSSRV SRVNAME,R,NARG, <REGS>,MASK,NOSYNC 
9000 44 .ENDM = RMSSRV 
9009 ces SRVR = GENERATE ENTRY FOR RMS SERVICE (EXEC MODE) 
0000 445 .MACRO SRVR — SRVNAME,NARG, MASK ,NOSYNC 
0000 446 cIF NOF ,MPSWITCH 
0000 447 “IF NDF -RMSSWITCH 
0000 448 CMESC_'SRVNAME=RCASCTR 
0000 449 CHME &#SR VNAME 
0000 450 IF EQ NOSYNC 
0000 451 LIF GT <. Hw RMSSYNC>-127,- 
0000 43¢ RMSSYNC=RMSWBR ;RESET BRANCH DESTINATION 
0000 453 RMSWBR=. 
0000 454 BRB RMSSYNC 
9000 455 FF 
000 456 RET 
0000 457 .ENDC 
9000 458 -PSECT YSCMODEN, BYTE 
000 459 
000 460 ASSUME NARG LE 127 
000 461 .BYT 
000 46 *PSECT YSCMODEX,BYTE 
000 46 *=RCASCTR 
000 464 “BYTE MASK 
0 465 “FF 
466 *PSECT SSSRMSVEC /BYTE,NOWR 
99 46 -SIGNED_W RMSS' SRV NAME=RCASE*2 
000 468 “ENDC 
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-MPSWITCH 
SRvR 


SRVALL = GENERATE ENTRY FOR ALL MODE SERVICE 


maw 


ooooo 


OOooocoo 
bmw ie | wl law fa lo lola lola la lolololo) 


-MACRO SRVALL , SRVNAME, ,NARG, MASK 
db NDF Ressult TCH 
" @#EXES' SRVNAME+2 


wit 
“ENDC =; MPSWITCH 
“ENDM = SRVALL 


SOSOOSOOSOOOSCO 
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€©90009090909 INI NINININININININION 
UEWNOODNOULWN—OO 


ooo 


H 15 
MPCMOD = MULTIPROCESSING KERNEL SYS SRV DISPATC 16-SEP-19 70 AX/VMS v04-00 P MP 
v04-000 Macros for Loadable Services mie y 7 88: oF: $$ Heys SR SR cj? CMODSSDSP.. MAR; 1 sat 9) va 


CMKSC_ SERVICE = PREFIX'KCASCTR 


: CMKSC_"SERVICE = ALT_CHMK 

CHMK #SERVICE 

IF NOT BLANK EFN 
PUSAL #EFN 


#10SB 
@#EXESLDB_SYNCH 


SOoSS DOOOOOOOOOOOoOoOSSoo 
SOoOOoOSoSSOSOSCSOSOSOSoOSOSOSOOOoSSoS 
SOOoOSSCSOOSOSOSOSOOSOSSooOoOSoSoSoo 
SOooQooooooooooooooooo 


PUSHL 
JMP 


i -SBTTL Macros for Loadable Services | 
0 489 ; 
9 430 : LOBSRV = Generate Loadable Service Vector | 
Bey $36 ; LDBSRV PREFIX,SRVNAME ,MODE,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 
D4 | 
0099 138 } er PREF I Prefix f i j 
; - Prefix for system service vector entry po fl none 
0000 $38 3 SRVNAME - Service pane less any prefix (SYS $ cits, et 
0000 497 ; MODE - Mode designator for service (K,E, NLD 
ih $38 : REGS - Register save list 
00 499 ; SYN_EFN - Event flag argument number for S$SYNCH 
$38 500 ; SYN_I0SB - I0SB argument number for $SYNCH 
000 501 ; ALT_CHMX - Use same CHMx number as this service 
0000 808 
0000 Hi -MACRO_ LOBSRV,PREFIX,SRVNAME ,MODE,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 
0000 505 IF NOF RMSSWITCH 
0000 506 IF NDF, mPSULTCH 
0000 507 IF DF ,LIBSWITC 
0000 508 .PSECT $3$0000, QUAD 
0000 509 - ALIGN 
0000 510 PREFIX'’SRVNAME:: 
0000 511 ~IF BLANK SYN_EFN 
0000 216 -BLKL 2 
0000 51  IFF 
0000 514 ~BLKL 4 
0000 515 -ENDC 
0000 516 J IFF 
0000 517 -PSECT 359008. QUAD 
0000 518 - ALIGN 
0000 519 WORD NCREGS> 
0000 520 SRVNAME ' MASK = “M<REGS> 
0000 521 LVEC_ ‘MODE PREF IX, SRVNAME , SYN_EFN,SYN_IOSB,ALT_CHMX 
0000 522 . NDC 
523 -ENDC MPSWITCH 
524 -ENDC : RMSSWITCH 
525 -ENDM LDBSRV 
35 
2 8 ; LVEC_K = Kernel Mode Loadable System Service Vector 
2 ? : LVEC_K PREFIX,SERVICE,EFN,10SB 
532 ° 
238 -MACRO LVEC_K ne SERVICE,EFN, IOSB,ALT_CHMK 
234 TIF BLANK ALT CHM 
iH 
35 
40 
4] 
303 
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6 44 LFF 
RET 
-ENDC 
IF BLANK ALT_CHMK 


SERVICE = PREFIX*KCASC 
PREFIX'KCASCTR = PREF I 


SERVICE = ALT_CHMK 
[ENDM = LVEC_K 


KCASCTR + 1 


LVEC_E = Exec Mode Loadable System Service Vector 
LVEC_E PREFIX,SERVICE,EFN,I0SB 


OOCOOOoooooooo 


OOoooooooooo 


«MACRO LVEC_E,PREFIX,SERVICE,EFN, 10SB,ALT_CHME 
.1F BLANK ALT_CHM 
CMESC_"SERVICE = PREFIX'ECASCTR 
CMESC_"SERVICE = ALT_CHME 


CHME  #SERVICE 
.1F NOT_BLANK EFN 
PUSA #EFN 


L 
PUSHL 
JMP 
FF 

RET 
~ENDC 
RET 
IF BLANK ALT_CHME 
SERVICE ="PREFIX'EC 
-PREFIX"ECASCTR = PR 
SERVICE = ALT_CHME 


[ENDM = LVEC_E 


SOOO oCOOCOCOOoOoOooooooooooooooo 


Sooooooooooo 


#10SB 
@#EXESLDB_SYNCH 


ASCTR 
EFIX*ECASCTR + 1 


LVEC_ALL: = Mode of caller Loadable System Service Vector 
LVEC_ALL PREFIX,SERVICE,EFN,10SB 


-MACRO LVEC_ALL, PREFIX, SERVICE,EFN, 10SB,ALT_CHMK 

jmp a#EXES SERVICE 

.1F NOT_BLANK EFN 
ERROR ; SYNCH NOT ALLOWED FOR ALL-MODE SERVICES 


OOOCoOoOoOoooooooooooao 
OOGCOCCOCOOCCOCOOOOCOSOOOCOOSO OOOO oOoOO: 


DDPDPD PPP PVP PU LVLIVLUDVLIVUIVSUIVSUSUSUSUSUSUSUSUSUS SISSIES ISIS IIUIIUSIUS 


~ENDC 
-ENDM = LVEC_ALL 


W000 0 000 00090909 69 09 0909 09 09 09 SII NSIS NS SSP PAA AAA AAA MUNI Be 
NAMA ANEW SO OD NAW EWN OS OO NAME WN CO OD NAU EWR (CO OONOU SW OOO NOUM 
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98 ; 
333 i ; Establish .PSECT for kernel-mode servicing code which follows 
00000000 704 ° .PSECT MPSCMOD1,QUAD 


row 
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— 
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= 
me 
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~SBTTL INHEXCP = Inhibited CHMK or CHME code handling 


INHEXCP = Inhibited CHMK or CHME code handling 

FUNCTIONAL DESCRIPTION: 

When tne ability to use specified system services is inhibited 
via the SSETSSF system service, this routine receives control 
when an attempt to execute an inhibited system service occurs. 


The exception condition is returned to the primary processor for execption 


ing. 
INPUTS: 
R1 = $S error code (SS$_INHCHMK or SS$_INHCHME) 
OO(SP) = change mode parameter code 
O4(SP) = Saved PC of exception 
O8(SP) = Saved PSL of exception 
ENVIRONMENT: 


This code executes on the secondary processor. 
If interrupted at any point, may continue on the primary processor. 


NHEXCP: 
PUSHL R11 :PUSH THE EXECPTION CODE 
PUSHL #4 :PUSH THE NUMBER OF ARGUM NTS 
IFPRIMARY <JMP G*EXESREFLECT> ©; IF PRIMARY THEN CONTINUE RIGHT ALONG 
*1F SECONDARY RETURN PROCESS TO PRIMARY 
EXTZV #PSLSV CURMOD, #PSLSS CURMOD, i6(3P) =( (SP) EATE PSL WITH PREV 
ROTL #PSL$V VEPRUMOD..(S »(SP) ; MODE COR ANd CERRENT MODE = KERNEL 


PUSHAB G*EXESREF sREFLECT THE cEXCER TION 
BRW MPSSMPSCHEDS ; AND RETURN PROCESS TO PRIMARY 


sz 


4 
2 
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aH ‘ -SBTTL MPSSASTEXIT = AST EXIT SYSTEM SERVICE FOR SECONDARY PROCESSOR 
$ 18 ; FUNCTIONAL DESCRIPTION: 
0 1; This is the AST exit system service routine for the secondary processor 
BeBe: seat oebterg Me Mate ties MLE tegths gbtOR es Bed fe 
3 process an en sets a new eve r) 2 e 
0 4; Secondary's processor register). Because an AST may be delivered by 
0 5 ; the primary while the secondary is executing this code, the routine 
33 4 § ; is repeated until the head of the AST queue is stable. 
09 6 : > INPUTS: 
83 0 1% (SP) = PC at time of interrupt 
83 5 § : 4(SP) = PSL at time of interrupt 
8 8 $e 3 ENVIRONMENT: 
0030 36 : Executes on the secondary processor. | ; 
0030 837; If interrupted at any point, may continue on the primary processor. 
0030839 
0030 840 ° 
00000000 841 -PSECT MPSCMOD2,BYTE 
0000 Ha MPSSASTEXIT: 
50 04 AE O02 18 j§EF 0000 84 EXTZV M#PSLSV_CURMOD,#PSLS$S_CURMOD,4(SP),RO ; Get previous mode 
54 DD 0006 844 PUSHL R4 ; Save register 
53 DD 0008 845 PUSHL R3 3; Save register (This is faster) 
52 DD QOO0A He PUSHL R2 ; Save register (than a PUSHR.) 
54 O000°CF D0 000C 47 OVL W*MPSSGL_CURPCB,R4 ; Get address of current process’ PCB 
Bet 848 SETIPL #IPL$_ SYNCH ; Disable system events i 
00 0C AS 650 86—E7 «600140 Ss B49 BBCCI RO,PCBSB_ASTACT(R4),10$ ; Clear AST active bit for this mode 
50 10 A4 DE 0019 850 10$:  MOVAL PCBSL _ASTQFL(R4) .RO ; Get address of AST queue 
52 04 00 001D 51 MOVL #4,R ; Assume null AST Level 
51 60 00 00 9 85¢ MOVL (RO), RI ; Get 
51 50 oD 00 85 CMPL RO,R1 : Is the queue enoty) 
OD 13 0026 854 BEQL 20§ ; Br on yes, set null AST Level 
72 MORA BSE ASSUME ACBSV_KAST EQ 7 Saag ensine Nos: 
0B Al 95 8 A B29 TSTB ACB$B_RMOD(R1) 3; Check for kernel AST 
06 19 D $28 BLSS ; Br if not kernel AST 
52 OB Al FC 8F 002F 59 BICB3 #*C<3>,ACB$B_RMOD(R1),R2 ; Get request mode 
53 6C Ad OD 00 5 69 20$:  MOVL PCBSL_PHD(R4J,R :'Get address of PHD 
oocr ¢3 83 90 Ose Bee ROVE. RSCPHOSB ASTUWL(R3)__¢ Set ASTEWE SeoPADS” | 
; Se 
00 0000'CF 0 E6 41 $8 BBSSI #LCK$V INTERLOCK ,W*MPSSGL_INTERLOCK,30$ ; Flush cache queue 
ji. D1 47 64 30$: CMPL (RO) RT :7Has the head of the queue changed? 
CD 812 4A 65 BNEQ 10$ ; Yes, repeat ASTLVL computation 
52 8€ 7D 4C 4] MOVQ (SP)+,R2 ; Restore registers 
54 8ED0 Ref 6 POPL R4 ; Restore register 
3 36 68 REI ; Return from interrupt 
0000003 69 -PSECT MPSCMOD1,QUAD 
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8 -SBTTL CHANGE MODE DETECTED ERROR HANDLING 
74 ; ACCVIO = ACCESS VIOLATION DETECTED IN ARGUMENT LIST 
75 ; INSARG = INSUFFICIENT ARGUMENTS SUPPLIED FOR SERVICE 
6 3; SSFAIL = ABNORMAL STATUS RETURNED BY SERVICE ROUTINE 
a 3; THESE ROUTINES TAKE THE APPROPRIATE ACTION TO RETURN THE ERROR INDICATION 
79 ; TO THE ORIGINAL CALLER. 
0 og 
5 ,= ENABL LSB 
2 8 58 ACCVIO: ; 
50 2f dO 4 MOVL SP ,FP 3SET FRAME POINTER BEFORE RET 
0057'8F 5 B1 00 85 CMPW RO, #KCASCTR 31S THIS AN UNRECOGNIZED CODE? 
09 1€ 00 87 BGEQU zYES, NOT NECESSARILY ACCVIO 
50 OC 3C QO3A 38 MOVZWL #SS$_ACCVIO,RO ;SET ACCESS VIOLATION 
04 B30 + RET : 
0057" 8F 50 BI O03 95 KINSARG: CMPW RO, #KCASCTR 31S THIS AN UNRECOGNIZED CODE? 
72 =#1E 004 96 10$: BGEQU KERDSP ;YES, NOT NECESSARILY INSARG 
50 0114 8F 3C 60045 900 MOVZWL #SS$_INSFARG,RO 3SET INSUFFICIENT NUMBER OF ARGUMENTS 
04 O04A a0¢ RET ; 
00468 905 SRVEXIT: sSERVICE EXIT 
08 50 E9 0048 904 BLBC RO,SSFAIL ;BR IF ABNORMAL COMPLETION 
02 OQ04E 905 SRVREI: REI : 
OO4F 909 MPSSEXCPTN:: sSYSTEM SERVICE EXCEPTION 
0000 O04F 911 .WORD 0 sENTRY MASK 
0051 915 SECBUG_CHECK SSRVEXCEPT, FATAL ‘UNEXPECTED ld SERVICE EXCEPTION 
50 O07 D3 0056 £917 SSFAIL: BITL #7,R0 4) SEVERITY FIELD 
F3 13 0059 918 BEQL SRVREI ;1F EQL WARNING 
FFFS* 31 O005B 919 BRW SSFAILMAIN :GOTO MAIN SSFAIL LOGIC 
00SE 920 -DSABL LSB 


a ~) 


Filtered Change Mode to Kernel Dispatche 5-SEP-19 SYS.SRCJCMODSSDSP.MAR; 1 


O2e 3 § ; -SBTTL Filtered Change Mode to Kernel Dispatcher 
SE 90a : 
3 2 5 ; MPSSCMODKRNLX = Secondary Filtered Change Mode to Kernel Dispatcher 
5E 931 : When inhibiting of user mode system service calls has b bled via th 

OSE 935 ; SSINHIBIT SYSGEN parameter, this routine -=- not MPSS$CMOD DKR RNLX == 18 called 
Bpee 3 : : yoanauee a CHMK instruction is executed. The state of ake stack on entry 
OSE 939: 

O03 re ; INPUTS: 

Soa aes ; OO(SP) = CHANGE MODE Soren? tte CODE. 

QOSE 945 ; 04(SP) = SAVED PC OF EXCEPTION. 

43 oee : O8(SP) = SAVED PSL OF EXCEPTION. 

005E 946 : QO(AP) = NUMBER OF SYSTEM SERVICE CALL ARGUMENTS. 

0OSE 947 ; O4(AP) = FIRST ARGUMENT. 

OOSE 948 ; ‘ 

ae ? 

O03 991 : 4*N(AP) = N'TH ARGUMENT. 

O09 $55 > OUTPUTS: 

Oeee 922 ; THE APPROPRIATE KERNEL MODE SYSTEM SERVICE IS INVOKED. 

005E 957° 

see? so: -PSECT MPSCMOD1,QUAD 
005E 367 ALIGN QUAD 
0060 971 MPSSCMODKRNLX:: 
50 03000000 8F 08 AE CB 0060 973 BICL3 8(SP) rhe hes CURMOD,RO ;CHECK ny PREVIOUS MODE 
1D 12 0069 977 BNEQ WeHPsscn KRAL :NO cH ECK NEEDED | FOR NON-USER MODE 
50 of 9A 0068 979 MOVZBL (SP) RO K UP THE CHM 
00000000'GF  00000000'GF40 93 006E 984 BITB. GG cy $$cB KMASKLRO2, G*CTL$GB SSFILTER ; STAND WITH INHIBIT MASK 
0c 13 007A 985 BEQL Gaapescn MODK s THIS CODE 1s” ALLOWED 
51 04C¢C of 3 007C¢ 987 MOVZWL #SS$ TAH at SET THE EXECPTION CODE 
FF7C 1 oe! 388 BRW INHERXCP SAND REFLECT IT 


a 
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0 4 931 : ~SBTTL CHANGE MODE TO KERNEL DISPATCHER 
6 4 Bf : MPSSCMODKRNL = SECONDARY CHANGE MODE TO KERNEL DISPATCHER 
0 4 999 ; THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN A CHANGE MODE TO KERNEL 
0084 130 ; INSTRUCTION IS EXECUTED. THE STATE OF THE STACK ON ENTRY IS: 
a08 1 0¢ t INPUTS: 
084 198 3 
0084 1004 : QO(SP) = CHANGE MODE PARAMETER CODE. 
0084 1005 : 04(SP) = SAVED PC OF EXCE®@ TION. 
Spe 1398 ; O8(SP) = SAVED PSL” OF EXCEPTION. 
0084 1008 : OO(AP) = NUMBER OF SYSTEM SERVICE CALL ARGUMENTS. 
0084 1009 : O4(AP) = FIRST ARGUMENT. 
0084 1010: ‘ 
0084 1011 ; - 
0084 1 1 : - 
0084 1013: 4*N(AP) = N'TH ARGUMENT. 
0084 1014: 
0084 1015 : OUTPUTS: 
0084 1016: 
0084 1017: THE APPROPRIATE KERNEL MODE SYSTEM SERVICE IS INVOKED. 
0084 1018 : 
0084 1019 
0084 1020 .ALIGN QUAD 
0088 1024 MPSS$CMODKRNL:: i 2NDARY CHANGE MODE TO KERNEL DISPATCH 
0088 1086 SNOTE: MEMORY WRITING INSTRUCTIONS ARE 
0088 1027 SCAREFULLY INTERLACED WITH REGISTER 
0088 1989 S INSTRUCTIONS FOR SPEED. 
50 BEDO 0088 1035 POPL RO ;REMOVE CHANGE MODE PARAMETER FROM STACK 
7E 13 008B 1039 BEQL ASTEXIT [IF ZERO, AST EXIT SYSTEM SERVICE 
BB AF 9F 008D 1041 PUSHAB B*SRVEXIT ‘RETURN ADDRESS 
51 50 9A 9090 104¢ MOVZBL RO,R1 ‘BOUND RANGE OF CHMK CODES TO 0,255 
0093 104 SAND 256 BYTES ACCESSIBLE FROM B_KRNLNARG 
5D DD 0093 1044 PUSHL FP TSAVE FP 
51 00000000'GF41 9A 0095 1048 MOVZBL G*SYS$GB_KRNLNARGCR1],R1 ;GET NUMBER OF REQUIRED ARGUMENTS 
5C DD 009D 105 PUSHL A :SAVE AP 
SD 00000004 9F41 DE O09F 1051 MOVAL @a#4CR1],FP : CALCULATE LENGTH OF ARGUMENT LIST 
7E 7€ OOA7 1052 CLRQ :PSW AND REGISTER SAVE MASK 
OA9 1056 IFNORD FP.(AP),ACCVION [DECLARE ACCESS VIOLATION 
5D SE DO OOAF 1058 MOVL = SPF FP 'SET FRAME POINTER FOR CALL FRAME 
51 6¢ 91 0082 1959 CMPB CCAP) TCHECK FOR REQUIRED NUMBER OF ARGS 
9 1F 0085 1065 BLSSU KIN NSAR Re [IF LSSU, INSUFFICIENT ARGUMENTS 
54 00000000'GF 00 0087 1066 KERDSP: MOVL  G“CTLS$GL_PCB,R4 [GET CURRENT PROCESS PCB ADDRESS 
003B'8F 50 81 OOBE 106 CMPW 3S séRO, #WALTF :I1S THIS THE WAITFR SYSTEM SERVICE? 
4E 13 00C3 1068 BEQL $MPSSWAITFR1 'BR ON YES, EXECUTE SYS SRV ON SECONDARY 
6030'8F 50 B61 00C5 1069 CMPW ss RO, #WFLLAND tI1S THIS THE WFLAND SySTER sen VICE? 
4A 13 «OOCA 1970 BEQL ##MPSS$WFLAND1 :BR ON YES, EXECUTE SYS SRV ON SECONDARY 
OO3E°S8F 50 81 O0CC 1071 CMPW =s-« RO, #WFLOR [1S THIS THE WELOR SYSTEM SERVICE? 
46 13 00D1 1078 REQL MPSSWFLORI ‘BR ON YES, EXECUTE SYS SRV ON SECONDARY 
SE 08 C D3 107 ADDL  #8,SP [CLEAN OFF PSW AND REG SAVE MASK 
C BED D6 1074 POPL AP SRESTORE AP 
D BED D9 1075 POPL F [RESTORE FP 
6 50 OD pC 1 i: MOVL _RO, (SP) [REPLACE CHMK ON STACK OVER RET ADR 
ODF 107 IFPRIMARY <JMP G*EXESCMODKRNL> IF PRIMARY, THEN CONTINUE RIGHT ALONG 
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TO KERNEL DISPATCHER -SEP-1984 74 SYS.SRCICMODSSDSP.MAR; 1 
1 4 Aisa Pett eth oy PROCESS TO PRIMARY 
107 EXTZV #PSL$V ite et cunhoD (SP) ,-(SP) ; CREATE est ITH PREV 
1080 TL PSL$V_PRVMOD, ( (SP) ; MODE CORRECT AND CURRENT ayy = KERNEL 
1081 PUSHAB G*EXESCMODKRNL sEXECUTE THE SERVICE ON PRIMAR 
1% ¢ wW MPSSMPSCHED2 ; AND RETURN PROCESS TO PRIMARY 
1084 ASTEXIT: 
1085 MPSSASTEXIT ;BRANCH ASSIST 
1 § ACCVIO1: 
1 ACCVIO BRANCH ASSIST 
1088 KINSARG1: 
18 9 BRW KINSARG ;BRANCH ASSIST 
1091 ; 
1936 3 ; BRANCH ASSISTS TO REACH SYSTEM SERVICES. 
1094 MPSSWAITFR1: 
1095 MPSSWAITFR+2 ;BRANCH ASSIST (PAST REG SAVE MASK) 
1096 MPSSWFLAND1: 
1097 MPSSWFLAND+2 ;BRANCH ASSIST (PAST REG SAVE MASK) 
1098 MPSSWFLOR1: 
1099 BRW MPSSWFLOR+2 ;BRANCH ASSIST oot ame SAVE MASK) 
1101 KCASE: BA SE OF CHMK CASE TABLE 
1102 KCASCTR=1 ;CHMK CODES START AT Mf 
1209 «ALIGN QUAD 
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v04-000 CHANGE MODE TO KERNEL DISPATCHER =SEP=1984 8¢:08:38 LEYS SRCTEMODSSDSP_MAR: 1 ate |S 
1 0 1213 ; 
14 ; DEFINE REMAINING SERVICES 
1 ° 1216 ° 
8 1217 GSYSSRV snaers yADJUST OUTER MODE STACK POINTER 
120 1218 R3 Re a5 R6>,- SREGISTERS R2- 
120 1219 MASK SEXCEPTION MAS 
000 1220 GSYSSRV ah? SADJUST WORKING SET LIMIT 
0000 1221 R2,R RA R5> SREGISTERS R2= 
0000 1 g GSYSSRV ALCON SALLOCATE DIAGNOSTIC PAGE 
0000 1 RS, ah RS R6.R7> SREGISTERS R2-R7 
0000 1224 GSYSSRV ALL OC K,4.- SALLOCATE DEVICE 
0000 1205 RS* RA RS,R6> SREGISTERS R2-R 
0000 1226 GSYSSRV ASC SCEF Fe. SASSOCIATE COMMON EVENT FLAG CLUSTER 
0000 1227 <R2,R Ri. ‘AS, R6,R7,RB,R9,R10,R11> REGISTERS R2-R11 
0000 1228 GSYSSRV ASC fim [CONVERT TO ASCII TIME 
0000 1229 a3. Ri ‘aa'R SREGISTERS R2-R6 
0000 1230 GSYSSRV Ags ath GN.K,4,- SASSIGN 1/0 CHANNEL 
0000 1231 <R2,R3,R4,R5, R6,R7,RB, R9>R10,R11> ;REGISTERS R2-R11 
0000 123¢ GSYSSRV ain INTIM.ALL, ‘CONVERT TO BINARY TI 
0000 1¢3 ae RG.RS.R6,R7,RB> REGISTERS R2-R8 
0000 1234 GSYSSRV canter’ ye, ae SCANCEL 1/0 ON CHANNEL 
‘ 0000 1235 <R2,R3,R4,R5,R6,R7,RB> IREGISTERS R2- 
0000 1236 GSYSSRV CANTIM.K,2,- CANCEL TIMER REQUEST 
0000 1237 <R2,R3,R4,R5> TREGISTERS R 
0000 1238 GSYSSRV CANWAK.K,2,- [CANCEL WAKE uP REQUESTS 
0000 1239 <R2,R3,R4,R5> TREGISTERS 
0000 1240 GSYSSRV CRABSC: {2,- i CREATE AND MAP SECTIO 
0000 1241 3'R4_R5,R6,R7,R8,R9_R10.R11> REGISTERS R2-R11 
0000 1248 GSYSSRV steshace 2,- i CLEAR HARD aARiTY ERRO 
0000 124 R2,R3,R4,R5> REGISTERS R2-R 
0000 1244 GSYSSRV CMEXEC.E,2,- ‘ CHANGE MODE TO EXECUTIVE 
0000 1245 <R4> REGIST 
0000 1246 GSYSSRV CMKRNL,K,2,- i CHANGE MODE TO KERNEL 
0000 1247 <R4> TREGISTER 
0000 1248 GSYSSRV CLREF,K,1,- [CLEAR EVENT 
0000 1249 <R2 RS. Ra R5> SREGIST ERS nuns. SEE WAITFR COMMENTS. 
0000 1250 GSYSSRV CNTREG.K ‘CONTRACT 
0000 1251 <R2,R3_R4_RS.R6R7> SREGISTERS RAS Ry 
0000 1658 GSYSSRV GETPTI.K,5,- :GET PAGE TABLE INEORMAT ION 
0000 125 <R2,R Rt RS,R6,R7,RB,RO_-R10> ;REGISTERS R2-R10 
0000 1254 GSYSSRV cRELO (,4.- CREATE LOGICAL NAME 
0000 1255 R na ae! R6,R7,R8> :REGISTERS R2-RB 
9009 1 36 GSYSSRV CREABY AD MAILBOX 
0000 125 R2,R3, Re RS .R6.R7.RB-RO_RIO.R 2 REGISTERS R2-R11 
0000 1258 GSYSSRV CREPRC.K,12,- CREATE 
9000 1259 <R2,R a RS R6.R7_RS, RO, R1 nit>" REGISTERS R2-R11 
0000 1260 GSYSSRV CRETVA, > CREAT viRT TAL AD 
0000 1261 <R2,R3 a RS.R6.R7.RB>,-: REGISTER 
000 1 6¢ EXC’ MA ASK SERCEPTION N MASK 
000 126 GSYSSRV DACEF :DISASSOCIATE EVENT FLAG CLUSTER 
000 1264 ih RS.R6.R7.R8.RO_RIO.R11> REGISTERS R2-R1 
000 1265 GSYSSRV DAG OC K,2,- :DEALLOCATE DEVICE 
000 1 66 <R2,R RA RS RB> SREGISTERS R2-R5, RB 
00 126 GSYSSRV DA SGN; :DEASSIGN 1/9 CHANNEL 
00 1268 RS, Ra RS.R6,R7,R8> :REGISTERS R2-R8 
000 1269 GSYSSRV oe CLAST.K,$,- [DECLARE AST SYSTEM SERVICE 
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SYS SRV DISPATC 16-SEP-1984 08: 08: 1 AX/VMS Macro V04-00 
SPATCHER SEP=1984 03:4 SYS.SRCICMODSSDSP.MAR; 1 
<R2,R3,R4,R5> SREGISTERS R2-R5 
GSYSSRV oC EX) K.1,- ‘DECLARE EXIT HANDLER 
Rb>’ SREGISTERS R2=-R4 
GSYSSRV DEGCOG AL *ALL 3. [DELETE LOGICAL NAME 
RG Le R6,R7,R8> :REGISTERS R2-RB 
GSYSSRV DELABY .K {,- [DELETE MAILBOX 
<RO_R3_RG_RSD TREGISTERS R2-RS 
GSYSSRV DELPRE.K 2,- DELETE PROCESS 
<R2,R Rh RS,R6,R7> REGISTERS R2-R5 
GSYSSRV eae - SDELETE Vi iad ADDRESS 
R3,R4,R5,R6,R7>,-  :REGISTERS 
XC MASK SEXCEPTION M 
GSYSSRV ie DELETE ON OBALS SECTION 
RA 555. R6,R7,R8,RI.R10> REGISTERS R2-R10 
GSYSSRV DLC Cone :DEALLOCATE DIAGNOSTIC PAGE 
aie nd RS.R6.R7> SREGISTERS R2-R 
GSYSSRV OLE CEF reek DELETE COMMON EVENT CLUSTER 
<R2,R RA RS,R6,R7,R8.R9_RIO,RI1> REGISTERS R2-R11 
GSYSSRV uD DSE EC k ZUPDATE SECTION 
R3-RL_RS.RG.R7.RB> 2 R2-RB 
GSYSSRV § none K.{,- :SEND MSG TO ERROR LOGGER 
pene. Ah, R5> SREGISTERS R2-R5 
GSYSSRV E nif: K,1,- + IMAGE EXIT 
>50 TREGISTER R ALWAYS ALLOWED! 
GSYSSRV ENPR REG, 4, EXPAND PROGRAATR EGION 
<R2,R ‘8 R5,R6,R7,R8> REGISTERS R2- “8. 
GSYSSRV FAO, Le ,0.° SFORMAT ASCII OUTPUT 
<R2.R Rs *R5,R6,R7,R8,R9_R10,R11> ; REGISTERS R2-R11 
GSYSSRV FAQL A ZFORMAT ASCII OUTPUT WITH VALUE LIST 
Re és, Re RS.R6.R7.R8.RO_R10,R11> REGISTERS R2-R11 
GSYSSRY F K,3,- SFORCE EXIT 
Oho nif "Ro RSD SREGISTERS R2-R5 
GSYSSRV tnGSTA. ALL,6,- :IMAGE STARTUP 
SREGISTERS NONE 
GSYSSRV Shy IBC. E 7 [SEND TO JOB CONTROLLE 
g 186 -E? R5,R6,R7,RB,RI-R10,R11> ; REGISTERS Se -ri1 
GSYSSRV 6 Betti MEL - [GET TIME 
[NO REGISTERS 
GCONPSRVB ” UPDSECW [UPDATE SECTION AND WAIT 
Ali <u UPDSEC “MASK ! GETJPI_SYNCH_MASK> 
GSYSSRV HIBER ; HIBERNATE 
<R2 nS, an: RS> SREGISTERS R2-R5 
GSYSSRV INGACT. a3 : IMAGE ACTIVATION 
R2,R3, “Ri RS.R6.R7.RB,R9_R10,R11> : REGIST ERS R2-R11 
GSYSSRV LCKPAG [LOCK PAGE IN MEMORY 
<R2,R Rd RS,R6,R7,.R8> REGISTERS R2-R 
GSYSSRV LKWSET [LOCK PAGES IN WORKING SET 
<R2, 10 ay} R5.R6,R7,.R8> REGISTERS R2-RB 
GSYSSRV NG s¢ *K [MAP GLOBAL SECTION 
“Ra RS.R6.R7.R8.R9_RIO.R11> :REGISTERS R2-R11 
GSYSSRV sun Stu us .K : PURGE WORKING SET 
<R2,R RA RS.R6.R7.RB> ROR 
GSYSSRV NUMTIM > CONVERT TIME 19 NUMERIC 
<R2 Rend RS.R6.R7> TREGISTERS Ro-R 
GSYSSRV SNOOPR E - [SEND MSG TO OPERATOR 
<R2,R3,R4,R5,RO,R7,RB,RI_RIO,R11> sREGISTERS R2-R11 
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= MULTIPROCESSING KERNEL SYS SRV DISPATC :0 X/VMS Macro V04-00 Page 21 
v04G CHANGE MODE TO KERNEL DISPATCHER "ersé Pa} 98 88: OB: My YOYS $.SRCICMODSSDSP.MAR; 1 . a4 
1334 GSYSSRV Q10,K,12.- UE 1/0 REQUEST 
6 1335 one RS,R4_R5,R6,R7,RB_RI, att F445 -REGISTERS R2-R11 
1 3 GSYSSRV READEF .K,2,- :READ EVENT BLAG 
000 1 <R2,R3,R4,R5> iRECISTEne R2-R 
000 1338 GSYSSRV RESON Kee RESUME PROCESS 
000 1339 <R2,R3,R4,R5> SREGISTERS RO-R5S 
000 1340 GSYSSRV RUNDWN. K {,- + RUNDOWN 
000 1341 2,R3, RA RS.R6,R7> SREGISTERS R2=R7 
0000 1 4¢ GSYSSRV sno te mee ‘SEND MSG TO SYMBIONT MANAGER 
0000 134 <R2,R RA R5,R6,R7,R8,.R9_RIO,R11> sREGISTERS R2-R11 
0000 1344 GSYSSRV sch HOWK SSCHEDULE WAKE 
9909 1345 BRS. av) RS.R6.R7,RB.R9> :REGISTERS R2-R9 
000 1346 GSYSSRV AE K,1,- ;SET AST ENABLE SERVICE 
0000 1347 <R2 RS. "Rd 85> SREGISTERS R2-R5 
0000 1348 GSYSSRV SE :SET EVENT FLAG 
0000 1349 <R2 Rg Ra’ RS> TREGISTERS Ro-R5. SEE WAITFR COMMENTS. 
0000 1350 GSYSSRV SETEXV.K,4,- ‘SET EXCEPTION VECTOR 
0000 1351 sf) R3, RA R5> SREGISTERS R2=- at 
0000 1 3g GSYSSRV SETPRN *SET PROCESS NAME 
0000 135 <Re, + av) RS.R6.R7.RB.R9> :REGISTERS R2-R9 
0090 1354 GSYSSRV $ K,2,- ;SET POWER RECOVERY AST 
O0vuv 1355 TPRA. nd RS> SREGISTERS RO-R5 
0000 1356 GSYSSRV § erine [SET TIMER 
0000 1357 ois. av) “ R6,R7,RB,RI_R10,R11> ;REGISTERS R2-R11 
0000 1358 GSYSSRV § eens K hee - [SET PROCESS PRIORITY 
0000 1359 sf RS. nk : REGISTERS R2-R5 
0000 1360 GSYSSRV SETPRT RK :SET PAGE PROTECTION 
0000 1361 <Re R3, Ra RS.R6.R7_RS, R95 REGISTER $ R2-R9 
0000 136 GSYSSRV SETRWM.K,1,- SET RESOURCE WAIT MODE 
0000 136 Hi :R 1She 
0000 1364 GSYSSRV SETSFM,K,1,- :SET SYSTEM SERVICE FAILURE MODE 
0000 1365 <R4>,EXC_MASK [REGISTER D EXECPTION MASK 
0000 1366 GSYSSRV SETSWM,K71,- [SET PRO oCess "SW WAP MODE 
0000 1367 <R4> ;REGIST ER 
0000 1368 GSYSSRV SUSPND,K,2,- : SUSPEND PRO. $$ 
0000 1369 <R2,R3.R4,R5> TREGISTERS R2-R5 
0000 1370 GSYSSRV TRNLOG.ALL,6,- S TRANSLATE L GICAL NAME 
0000 1371 <R2,R3,R4,R5.RO,R7,RB> ;REGIST ERS R2-R8 
9000 1372 GSYSSRV ULKPAG.K $,-° UNLOCK PAGE FROM MEMORY 
000 137 <R2,R3,R4,R5,R6,R7,R8> ZREGISTERS R2-R 
0000 1374 GSYSSRV ULWSET.K,3,-— [UNLOCK PAGES FROM WORKING SET 
0000 1375 <R2,R3.R4,R5,R6,R7,R8> REGISTERS R2-R 
0000 1 2 GSYSSRV UNWIND.ALL 25 [UNWIND PROCEDURE CALL STACK 
909 137 <R2,R3.R4,R5> SREGISTERS Ro-R 
000 1 28 GSYSSRV WAITFR.K,1,- :WAIT FOR EVENT 
000 137 <R2,R3,R4,R5,R6> SREGISTERS R8 IS EVER USED 
900 1 80 [THE RMS SyCHRONI ZATION CODE MUST BE 
000 1381 [MODIFIED TO SAVE IT ALSO. 
000 1 Be GSYSSRV WAKE,K,2,- [WAKE PROC 
600 1 <R2,R3,R4,R5> TREGISTERS R2-R5 
000 1384 GSYSSRV WF LAN K,2,- [WAIT FOR LOGICAL AND OF EVENT FLAGS 
000 1385 <R R Re as, R6> SREGISTERS R2-R 
000 1 6 GSYSSRV WFLOR K :WAIT FOR LOGICAL OR OF EVENT FLAGS 
000 1 <R2,R5, Rs “RS. R6> SREGISTERS R2-R 
000 1388 GSYSSRV BRDCS Si,A ge [BROADCAST TO TERMINALS 
000 1389 <R2,R3, RG ms R6> SREGISTERS R2-R 
000 1390 GSYSSRV DeceMa, H.K,3,- [DECLARE CHANGE MODE HANDLER 
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SYS SRV DISPATC 19-SEP-1984 03 :08:1 AX/VMS Macro V04-00 
SPATCHER -SEP=1984 03:40:37 ([SYS.SRCICMODSSDSP.MAR;1 
<R4> :SAVE RG 
GSYSSRV SETPFM,K,4,- F FI PAGE FAULT MONITORING 
<R2 R3.R40R5.RO.R7 RB ROR 0,R11> ;REGISTERS R2-R11 
GSYSSRV GETASG.ALL 7 :GET MESSA E 
<R2,R3,R4,R5.RO,R7,RB,RI-RI0,R11> : REGISTERS R2-R11 
GSYSSRV DERLAB.K {,- : DECLARE mt ROR 06 MAILBOX 
<R2,R3,R4,R5> *REGISTERS R2-R 
GSYSSRV CANEXH.K,1,- SCANCEL EXIT HANDLER 
<R2,R3,R4,R5> SREGISTERS R2-R5 
GSYSSRV GET TCHN §- [GET CHANNEL INFORMATION 
3,R4 RSR6,R7,RB,R9_R10,R11> REGISTERS R2-R11 
GSYSSRV 6ef Hag iGET DEVICE INFORMA 
<Re R3-RL_RS.R6.R7.RB,RO_RIO,R11> REGISTERS 1s 1 
GSYSSRV cer K,?,- :GET JOB PROCESS INFORMATION 
Sear Ad, RS. R6,R7,R8, R9°R10,R11> :REGISTERS R2-R1 
GSYSSRV PUTAS “A :PUT FORMATTED ERROR MESSAGE 
R2,R Re Lage R6,R7.RB.RO_R10,R11> :REGISTERS RO-R11 
GSYSSRV EXChS ALL, 2," SOUTPUT EXCEPTION SUMMARY MESSAGE 
<R2,R3,R4,R5.RO,R7,RB,RI-R1I0,R11> sREGISTERS R2- 
GSYSSRV SNDACC.E,2,- 'SEND MSG TO ACOUNTING MANAGER 
<Re R3/RL-RS.R6.R7.RB,RO_RIO,R11> :REGISTERS R2-R11 
GSYSSRV SET ing. {,- ISET SYSTEM TIME 
<R2,R3,R4,R5,R6,R7,RB,RI_R1I0,R11> sREGISTERS R2-R11 
GSYSSRV SETPRV i - SSET PRIVILEGES 
<R2,R3,R4,R5,R6,R7,R8> :REGISTERS R2-R8 
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SPECIAL VECTORS FOR AST DELIVERY AND CLEARING 
SYSSCLRAST CLEARS THE CURRENTLY ACTIVE AST STATUS 
SYSSGL_ASTRET CONTAINS THE VALUE OF THE RETURN ADDRESS FROM 


THE CACL INSTRUCTION USED TO DISPATCH AN AST. THI 
BE USED WHEN SEARCHING UP THE STACK FOR THE AST CALL FRAME. 
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= MULTIPROCESS! E YS SRV DI 
veel REGION 2 OF SYS. SERV. VECTOR DEFIN -SEP-1984 SYS.SRCICMODSSDSP.MAR; 1 

He 17 4 .SBTTL REGION 2 OF SYS. SERV. VECTOR DEFINITIONS 

00 1736; 

00 17 5 ; Note: Service codes for exec mode services in this region are 

B08 1738 ;: reserves by the offset defined above between RCASCTR and ECASCTR. 

8 1739 ; If the ASSUME at the end of this section breaks, the offset must 

000 1740; be leameameds 

0000 1741: 

9909 1246 

000 174 GSYSSRV ENG. KI ; ENQUEUE 

0000 1744 R$ he R5,R6,R7,RB_RI, »R10 Riis : REGISTERS R2-R11 

9909 1745 GSYSSRV DEd. 4- ; DEGUEVE 

000 1746 2°R3, Rs, R5S,R6,R7,RB,RI_R1 REGISTERS R2-R11 

0000 1747 GCOMPSRVB. Figy: EN nou UEUE AND WAIT 

0000 1748 Q_MASK | WAITFR_MASK i CLREF_MASK ! SETEF_MASK> 

0000 1768 GCOMPSR ven : RESERVE 3 QUADWORDS FOR VECTOR 
0000 176 GSYSSRV SETSSF.K, 1,- : SET SYSTEM SERVICE FILTER MASK 
0000 1764 : REGISTER R4 

0000 1765 GSYSSRV SEtetx, K,3,° : SET STACK LIMITS 

0000 1766 <R2,R3,R4> + REGISTERS R2,R3, 
0000 1767 GSYSSRV oe TSYI'K /,° ; GET SYSTEM INFORMATION 

0000 1768 4,R5,R6,R7,R8,R9.R10,R11> ; REGISTERS R2-R11 
0000 1769 GSYSSRV ince tas ALL,0,- : IMAGE ADDRESS RELOCATION FIXUP 
0000 1770 <R2,R3.R4,R5> : REGISTERS 
0000 1771 GCOMPSRVB IMGF IX 2° 5 teeeeneeee TtENP eeetereere 
0000 1728 <0> 
0000 177 GCOMPSRVE “ ; kkeekeenee TEMP senxeneneee 
0000 1774 GSYSSRV GETDVI.K/8 GET DEVICE AND VOLUME INFORMATION 
0000 1775 R4.RS.R6.R7_RE. Rd, R10,R11> ; REGISTERS R2-R11 
0000 1776 GCOMPSRVB wey - GEf DEVICE INFORMATION AND WAIT 
0000 1777 <GETDVI_MASK ! GETUJPI _SYNCH _MASK> 
0000 1786 GCOMPSRVE “ 
0000 1787 GCOMPSRVB GETJPIW - GET JOB/PROCESS INFORMATION AND WALT 
0000 1788 <GETJPI_MASK ! GETUPI _SYNCH _MASK> 
0000 1798 GCOMPSRVE “7 
0000 1799 GCOMPSRVB GETSYIW,- GET SYSTEM INFORMATION AND WAIT 
0000 1800 <GETSYI_MASK ! GETJPI _syiCH _MASK> 
0000 1809 GCOMPSRVE 7 
0000 1810 GCOMPSRVB SNDJBCW,- : SEND 19 JOB CONTROLLER AND WAIT 
0000 1811 <SNDJBC_MASK ! GETJPI_SYNCH_MASK> 
0000 1820 GCOMPSRVE “4 
0000 1821 GCOMPSRVB SYNCH, - : SY NCHRONIZE etn AND 10SB 
0000 1822 <WAITFR_MASK ! CLREF =PAsk 1 SETEF_M 
9900 1861 GCOMPSRVE “6 RESERVE -B* QUADWORDS FOR VECTOR 
0000 1 6¢ GSYSSRV ERAPAT,K,3,- : GENERATE A SECURITY ERASE PATTERN 
0000 186 <R4> : SAVE 
0000 1864 GSYSSRV cR LNT,K ATE LOGICAL NAME TABLE 

0000 1865 RS, *R4 eS. R6.R7.RB.R9- R10, R11> ;REGISTERS R2-R11 

9000 1866 GSYSSRV ene Mik CREATE LOGICAL NAME 

000 186 URS. "RL_RS.RO.R7_RB, RO, *Ri0, RID i -REGISTERS R2-R11 

0000 1868 GSYSSRV DE inm:x,$,- : DECET LOGICAL NAME 

000 1 $9 R3.R4,R5,R6,R7_RB, RO, R10,R11> :REGISTERS R2-R11 

900 1870 GSYSSRV TRCN: K,5,- : TRANSLA SLAT TE LOGICAL 

00 1871 <R2,R3_R4_R5,R6-R7_-RB_RI, »RIO,R11> REGISTERS R2-R11 

000 1 ee GSYSSRV oeTCR ok GE LOCK INFORMATION 

99 187 Rd, AS. R6,R7,R8, RO, R10,R11> ;REGISTERS R2-R11 

000 1874 GCOMPSRVB white : GEf LOCK’ INFORMATION AND WAIT 
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1875 <GETLKI_MASK ! WAITFR_MASK ! CLREF_MASK ! SETEF MASK 
p f GCOMPSRVE : ; RESERVE 2 QUADWORDS FOR VECTOR 
00 1889 GSYSSRV ASCTOID ZASCII_ TO IDENTIFIER CONVERSION 
00 1890 aR 94 afi RS. R6.R7.RB.RI. /R1O,R11> ZREGISTERS R2-Ri1 
00 1891 GSYSSRV ft 13 RDB F. ‘1, INISH RDB CONTEXT STREAM 
000 1 36 “Ree ) R&,R7.RB_RI, “R10, R11> :REGISTERS R2-R11 
09 189 GSYSSRV I DFA aehe EN FIER TO ASCII CONVERSION 
000 1894 “Ae: RS, R6,R7,R8, RO'RIO.R11> :REGISTERS R2-R11 
9909 1895 GSYSSRV sre eens 11. ZBREAK THROUGH WRITES 
0000 1896 <2. MS Uae: R5 “RG, R7,RB,RI.R10,R11> ;REGISTERS R2-R11 
9900 97 GSYSSRV cna TE,ALL, - :GRANT IDENT FI R TO PROCESS 
9000 1899 GSYSSRV ie. ALL, 5° REGISTERS Rosas FROM PROCESS 
0000 1901 GSYSSRV cnceng GENERAL PROTECTION CHECK ROUT INE 
0000 190¢ oka. RS, R6,R7,R8B,R9, »R10 Rite :REGISTERS R2-R11 
0000 190 GCONPSRVB “Beri RUW, THOUGH WRITE AND WAIT 
0000 1904 THRU_MASK ! GETJPI _SYNCH MASKS 
0000 1913 GCOMPSR Ps 
0000 1914 GSYSSRV GETQUI.E :GET QUEUE INFORMATION 
0000 1915 RL. as, R6,R7,RB,R9_-R10, Rii> sREGISTERS R2-R11 
0000 1916 GCOMPSRVB “servi :GET QUEUE INFORMATION AND WAIT 
0000 1917 Tau! TAASK ! GETJPI_SYNCH_MASK> 
0000 1926 GCOMPSRVE “2 
0000 1927 
0000 1928 ; 
00004028 0000 1929 CJFSKCASCTR = 16424 
0000 1930 ; 
0000 1931 LDBSRV CJF$, ALLJDR, K,  <R4> 
0000 1938 LDBSRV CJF$, ASSJNL, K, <R4> 
0000 193 LOBSRV CJF$. CONUIC, kK, <R4> 
0000 1934 LDBSRV CJF$, CREJNL, K,  <R4> 
0000 1935 LDBSRV CJF$. DEALJDR, K,  <R4> 
0000 1936 LOBSRV CJF$. DEASJNL, ALL, <R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
0000 1937 LOBSRV CJF$, DEASJNL_INT, K, | <R4> 
0000 1938 LDBSRV CJF$, DELJNL, K, <R4> 
0000 1939 LDBSRV CJF$. DMTJMD. K,  <R4> 
0000 1940 LDBSRV CJF$. DSPJNL. K, <R4> 
0000 1941 LDOBSRV CJF$, GETJNL, K, <R4> 
0000 1948 LOBSRV CJF$. GETRUI. K,  <R4> 
9009 194 LDBSRV CJF$, MODFLT. K, “R4> 
000 1944 LOBSRV CJF$. POSJNL. K, wa 
90 1945 LOBSRV CJF$, READJNL, K, <R4> 
1946 LOBSRV CJF$. RECOVER, K, <R4> 
000 194 LDBSRV CJF$, MNTJMD, K,  <R4> 
000 1948 LOBSRV CJF$, CRENWV K,  <R4> 
999 1949 LOBSRV CJF$. CONJNLF, K,  <R4> 
000 1950 LOBSRV CJF$, DCNUNLF. K, <R4> 
000 1951 LDBSRV CJF$. FORCEJNL, ALL, <R /R3.R4,R5.RO.R7RB-RO-RIO.RI1> 
00 1958 LOBSRV CJFS$. FORCEJNLW, ALL, <R2.R Ro .R9+RO.RZ.RB-RY.RIO.RI1> 
000 195 LDBSRV CJF$, WRITEJNL, ALL, <R -R3.R44RDRORZR »R9,R10,R11> 
000 1954 LPBSRV CJF$. WRITEJNLW, ALL, <R2.R3.R4.R5.R6.R7.R8.R9_R10.R11> 
000 1955 LDBSRV CJF$. GETCJI, K,  <R4> 
0 1986 LOBSRV CJF$. DMTJMDW, K,  <R4&>, 4, 5, DMTIMD 
0 195 LOBSRV CJF$, MODFLTW, K,  <R4>, 4. 5° MODELT 
1958 LOBSRV CJF$. POSJNLW, K,  <R4>, 4; 5; POSJNL 
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REGION 2 OF SYS" SERV. VECTOR BEFGHITIOM SoSeP-1984 DS seB Se Le eS Mee lee as Page 26, 
1323 LDBSRV CJFS$, READJNLW, K, <R4>, 4, 5, READJNL 
1399 LOBSRV CJFS$, RECOVERW, K, <R4>, 5, 6, RECOVER 
1962 ; 
00004010 1998 RUFSKCASCTR = 16400 
80 1965 . LDBSRV RUF$, REENTERRU, K, <R Rg RG RZ RG? 
00 1396 LOBSRV RUF$, STARTRU, K, <R2,R3,R4,R5,R6> 
0000 196 LOBSRV RUFS, HASE1, K <R2,R3,R4,R5,RO> 
4 1968 LOBSRV RUF$, PHASE2 K, <R2,R3,R4,R5,R6> 
00 1969 LDBSRV RUF$, CANCELRU K, <R2,R3,R4,R5.R6> 
909 1970 LDBSRV RUF$, MARKPOINTRU, K, <R2.R3.R4.R5.RO> 
00 1971 LDBSRV RUFS$, RESETRU, K, <R2,R3,R4,R5,R6> 
0000 1376 LOBSRV RUF$, DCLRUH, K, <R2,R3,R4,R5,R6> 
4464 197 LOBSRV RUF$, CANRUH, » R2,R3,R4,R5,R6> 
i464 13ee LOBSRV RUFS, RUSTATUS, K, <R2,R3,R4,R5,R6> 
944 1278 : End Recovery Unit consists of a two-phase commit, so we call each 
44 13h : phase separately. 
44 ta ; Eonptaat ENDRU, <PHASE1_MASK ! PHASE2_MASK>, RUF$ ; End Recovery Unit 
$000 1991 GSYSSRV MTACCESS,K,6,- Mag tape installation specific access routi. 
0000 199¢ <R2,R3,R4,R5,R6,R7,RB,R9_-RIO,R11> REGISTERS R2-R11 | 
0000 199 
0000 1994 ; 
0000 1995 ; End of system service vector definitions. New system services are 
0000 1996 ; to be added at this point. 
0000 1997 ; 
0000 2003 
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IPL f0 0 FOR ERROR PATH 
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BRW MPSSMPSCHED PRIMARY 

10$: REI TURN FROM SERVICE WITH ERROR STATUS 

208: IFPRIMARY <BUG CHECK MTXCNTNONZ, FATAL ;PRIMARY VERSION OF BUGCHECK 

ncasnaen atte MTXCNTNONZ,FATAL | ;MUTEX COUNT NONZERO AT SERVICE EXIT 
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00C2 2345 - END 
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BUGS$_MTXCNTNONZ 
BUGS SSRVEXCEPT 
ANCEL 


CMKSC~ 
CMKSC~CREPRC 
CMKSC~CRETVA 


CMKSC~CRMPSC 
CMKSC~DACEFC 
CMKSC oc 


CMKSC_DELMBX 
CMKSC_DELPRC 
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“wecrop apeepciolientnaneet treme tin tan tderten ty TB le BR te AR ny ae (2) 
L table 

sempes = 90000050 GETDVI$ NULLARG = 99000000 

CRELNT - tf GETJPIS_ASTADR = 00000018 

REMB . iH GETJPIS-ASTPRM = Bobb boos 

CREPRC : 12 GETJPIS_EFN 2 14 

CRETVA = 9000000 GETIPI$-10SB = Boo noOTS 

CRMPSC “ eeeeneee Xx 0 GETJPIS_ITMLST = 00000007 

si pnp gasses KO ETUPHECAM, = $888 
SACERC™ = 00000013 CETJPISTPRCNAM = Bo fONes 

DALLOC = 90000014 GETLKI ~ = Bopeoore 

geet = B993816 SHEE AST aa = S018 

3F - = 00 

DCLCRH = 00000017 GETLKIS-EFN = 00000010 
DCLEXH = 90000081 GETLKI$_10SB me ttt th 
DEF MASK = 00000051 GETLKIS"ITMLST = 90000008 

ELCNM = 00000018 GETLKIS-LKIDADR = 90000008 
DELPRC = 9000001 GETLELS Re SERVED = 9000001¢ 
DELTVA = 00000049 GETPTI = 0000004C 
DEG = 00000041 GETSYI$_ASTADR = 00000018 
sate : Reh SEAT att 
DLCDNP = 0000001D GETSYI$_ = 00000004 
DLCEFC = 00000048 GETSYIS_EFN = 00000014 
ENOS_ACMODE = 00000028 GETSYISCITALST = 9000001 
ENOS-ASTPRR = 90090036 GETS¥1S-NODENAME = 9000000¢ 
ENOS-EFN = PReg eet INHEKCP opovaogs © 
ENQS_FLAGS = 90990008 +5 ala = 90000057 
ENQS_LKMODE = 0000000 KCAS 9000071¢ R 02 
ENQ$_LKSB = 000000 sp = 0000005 
fer fut = Ba ite ae ti 
ENOS_PROT = 00000014 KINSA 00000110 R08 
am = HRB teste ibrenock = nme 
EXC_MASK > 02 LCKPAG 10025 
Ec mee | ae 

® 
EXESREFLECT seceeees. A MPSSASTEXIT 90000088 RG 
EXESSSFAIL a MPSSCMODKRNL 0000060 RG 
pilieg : RPSSENCPT Seseeese "n § 
x - MPS$GL_CURPCB ; 0 

FORCEX : RPSSGL-INTERLOCK secseses 
CETDVI ; MPS$SECBUGCHK nemewno YS 
GETDVI$_ASTADR = MPSSUALTER oo000113 ROO 
GE TDOVIS_ASTPRM 4 MPSSWAITFR eeeeeeeer = X 0 
GE TDVIS~CHAN . MPSSUFLAND, 00000116 R 9 
GE TDV1$_DEVNAM = MPSSWFLAND geeeaeaeee x 
CE TDVIS- 1088 : RPSSUELORI gogggtize = 6 
GETDVIS~ITMLST . MPSWITCH = 00 

GE TOVIS~NARGS 
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PSECT name Allocation PSECT No. Attributes 
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! ;_Performance indicators : 


Phase Page faults CPU Time Elapsed Time 


Initialization | ¢9 00: 10: 00.82 
Command processing 157 

Pass 1 668 
Symbol table sort 9 
Pass 2 | 
Symbol table output 8 
Psect synopsis output 2 
Cross-reference output 0 
Assembler run totals 1121 
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MOWOON RUN 
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e working set Limit was 2250 pages. 
sores bytes (412 pages) of virtual memory were used to buffer the intermediate code. 
There were 70 pages of symbol table space ry ey to hold 1356 non-local and 11 local symbols. 
351 source Lines were read in Pass 1, producing ¢ object records in Pass 2. 
1 pages of virtual memory were used to define 47 macros. 


Macro Library name Macros defined 


“$255$DUA28: MP. oy wh 8 
m stttrers $ SYS.0B MLB; 1 

SYSLI oes at ie me MLB; 2 1 
Tete ‘all libraries) 3 


1362 GETS were required to define 36 macros. 
There were no errors, warnings or information messages. 
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WRT NOVEC QUAD 


MACRO/LIS=L1S$:MPCMOD/OBJ=OBJS:MPCMOD MSRC$:MPPREF IX/UPDATE=(ENHS:MPPREF IX) +MSRC$ :MPSWT/UPDATE=(ENHS :MPSWT) +MASDS: CSYS.SRCJCMODSSDSP 


| 
- ABS . £80008 ( 3 00 ¢ 0.) NOPIC USR CON LCL NOSHR NOEXE NORD 
SABSS 0 ( -) O17 ¢ 1.) NOPIC USR CON LCL NOSHR EXE RD 
MPSCMOD1 ( 8 8.) LCL NOSHR 
( 194.) LCL N 
( ) LCL N 


(p47 AH-BT13A-SE 3 , T CORPORATION 
| If VAX/VMS V4.0 PROPRIETARY 
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